



(define mytree-2
    (list 5 
        (list 3 
            (list 1 `() `())
            (list 4 `() `())  
        )
        (list 9 
            (list 7 `() `()) 
            (list 10 `() `())
        )
    )
)
(define mytree-1
    (list 7 
        (list 3 
            (list 1 `() `())
            (list 5 `() `()) 
        )
        (list 10 
            (list 9 `() `()) 
            (list 11 `() `())
        )
    )
)

(display (union-set mytree-1 mytree-2))
(newline)
(display (intersection-set mytree-1 mytree-2))
(exit)